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1 ~3007 138% 18832 BASRTL SRE IBASSL EES 63551 = (1) 
MODULE BASSSLEEP ( ' Sleep for a phils 
DENT = '3-003' ' File: BASSLEEP.B32, Edit: FM3003 


i] 
3ss 


Ve 


Oooo 
EAE 


QOoooocccoe 


ENVIRONMENT: VAX-11 User Mode 


WWAAA 


Ssss 


AUTHOR: John Sauter, CREATION DATE: 19-APR-1979, REWRITTEN: 11-JUN-1980 


4 
fe 
8 43 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
100 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
19 39 7 ALL RIGHTS RESERVED. 
i og ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
} 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
4G 014 :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
15 15 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1¢ 3018 :* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
i 4 :: TRANSFERRED. ® 
4 « 
19 0039 :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
20 0020 t* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
1 4 1 :* CORPORATION. ® 
Hid * 
5 00 : '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
: 88 3 i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
4 * 
6 00 ‘e ca 
? 0097 
8 0028 ; 
8 BE Lu 
1 tt FACILITY: VAX=11 BASIC Miscellaneous 1/0 
33 0038 ABSTRACT: 
35 00 This module contains the BASIC SLEEP function. 
3 
39 
40 


i 
: REWRITTEN by Farokh Morshed 18-NOV-81. 
i MODIFIED BY: 


Fw OC 0Onou 


2-001 - Rewrite this routine to use $010 instoog of > read-with 


timeout. The previous version was 1- 11-JUN-1980 


Sererese 


2-002 = Designate this version 2-002 to keep version numbers consistent 
since it is the "enhancement" version of BASSSLEEP. JBS 12-JUN-1980 


1 

1 

1 
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1 
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1 

1 

1 

' 

: 3-001 - To implement type-ahead recovery, and SYSSINPUT trong lotion using 
1 
1 
1 
1 
1 
1 
1 


3 - This module was rewritten. fFarokh Morshed 1 v-81. 
bee 3-002 = Get rid of STRMLOG code since system serivices do that now. 

26 3-003 - Put in the code to get ment flags from LIBSGET_EF so event flag 

rt zero is left alone. FM 29-JUN-82. 

55 

56 '<BLF /PAGE> 


ne 
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: 74 

3 38 34 1 | SWITCHES: 

¢ i. 

; 6 1 } SWITCHES ADDRESSING MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
3 8 : 1! 

; 65 : : } LINKAGES: 

: £5 1! NONE 

; 2 1 i TABLE OF CONTENTS 

3 0 . 1! 

os. ae S 4 

: &£ 71 1 FORWARD ROUTINE 

ee ys 1 BASSSLEEP : NOVALUE, !' Wait some seconds 

3 74 7 1 TAKE_AST : NOVALUE, ! Take the AST for Q10 or SETIMR 

a a oore 1 SLEEP_HANDLER; ' Clean up after UNWINDs 

tea. 75 «1 

Ff pore 1! 

3 78 0077 1 ! INCLUDE FILES: 

; 0078 1! 

; 80 od 1 

3 3 5080 : REQUIRE ‘RTLIN:RTLPSECT’; ! Macros for defining psects 

; 8 0176 1 LIBRARY ‘RTLSTARLE'; ! System symbols 

s Be 0177 1 

;~=««BBS 0178 1! 

HY 86 0179 1 ! MACROS: 

; «687 0180 1! 

a. 0181 1! NONE 

: «889 01 ; 1! 

3 90 018 1 ! EQUATED SYMBOLS: 

ro’ Oe 0184 1! 

; 4 pie? 1! NONE 

ae. 01 6 1! 

; 94 gis 1 ! PSECTS: 

; «69S 0188 #1! 

3 33 434 : DECLARE _PSECTS (BAS); ' Declare psects for BASS facility 

: 98 0191 1 ! OWN STORAGE: 

; 99 O13 1! 

; 100 0193 1! NONE 

: 101 196 1! 

3 106 195 1 ! EXTERNAL REFERENCES: 

: 10 196 1! 

: 104 0197 1 

: 105 0198 1 EXTERNAL ROUTINE 

: 106 0199 1 LIBSMATCH_COND, ' Match condition codes 

3: 107 535} 1 LIBSGET_EF ! Get event flag 

: 108 0201 1 LIBSFREE_EF, i Free event flag 

3 + 8508 ' LIBSSTOP; ! Signal a fatal error 


4 
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ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
Signals if an error is encountered. 


§ GLOBAL ROUTINE BASSSLEEP ( ! Wait a while 
SECONDS ! Seconds to wait 
4 ) : NOVALUE = 
14 
; FUNCTIONAL DESCRIPTION: 
9 i Wait the specified number of seconds, or until a terminator 
, } is typed on the controlling terminal. 
4 FORMAL PARAMETERS: 
¢ SECONDS.rl.v How many seconds to wait. 
6 IMPLICIT INPUTS: 
8 NONE 
0 | IMPLICIT OUTPUTS: 
3 ! NONE 
i 
i 
i 
{ 
i 
i 
i 
i 
' 
i 


BEGIN 

LOCAL 
ASSIGNED_CHAN : VOLATILE, ‘Assigned channel. Zero if no channel is assigned. 
TIMER_REGID : VOLATILE, '$SETIMR request ID. 
syeet tes : VOLATILE, ‘Event flag to be used instead of EF zero. 


te 
! rh to clean up if an UNWIND is done. The most Likely cause of an 
: UNWIND is a “C from the $HIBER. 


PERE ESE & FAWN WII WII POPONINONONONININ 3 3 Ss SS SS OOOO OO 
SOOO NOAUES WN @ OOO NAME WN (OOO NOAM EWN 0 OONAUE WN) OOONOUSE 


ENAB 


DONAOULWN —OWOONOuSuwiny—O 0@~ 


LE 
SLEEP_HANDLER (ASSIGNED_CHAN, TIMER_REQID, EVENT_FLAG); 


'¢ 
! Get an event flag to be used from here on. We do this so event flag zero 
: can be used by others. We never use this event flag for anything. 


EF_STATUS = LIBSGET_EF (EVENT FLAG); 
IF~(NOT .EF_STATUS)~ THEN LIBSSTOP(.EF_STATUS); 
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H Make sure there is not a $WAKE hanging around. 
BEGIN 
CAL 

WAKE STATUS 

HIBER_STATUS; 
WAKE_STATUS = SWAKE (); 
IF ( NOT .WAKE_STATUS) THEN LIBSSTOP (.WAKE_STATUS); 
HIBER_STATUS = SHIBER; 
IF ( NOT .HIBER_STATUS) THEN LIBSSTOP (.HIBER_STATUS); 
END; 
BEGIN | 
BUILTIN 

EMU 


CAL 
SETINR STATUS, 
TIMBUF~: VECTOR (2); ‘Translated seconds for $SETIMR. 


14 
Compute time to wake in system format 


EMUL (ZREF (-10000000), SECONDS, %REF (0), TIMBUF ([0)); 
Take an AST when that time come 


ooooo DOOD000 O00 ODDO ODWDDOOODONAIN ANANSI SIO 
SOOOCOCOCOSOCOSOOCOSCOOCCOCOOOCOOOCOOCOOOOCOOOOOOCOOoOoOOoOOo 
PIPIPIPIPIPINIPINIPINPIPINIPINIPIPINININININININININININININPPTNNn 

OO 09 0909 09 09 09 09 09 09 09 SII NINN NIN IO AAA AOA 

FUN (OO SNA UNE WN 9 ODNAOUE WN "QO OONOUE Wh 


POROPOPININONIRD 2 2 2 2 


| 
: 
| 
ii 
! 


9 ! We will pick address of SECONDS. to be our TIMER -REQID since this address 
3¢ a is unique for each call. 
296 TIMER REQID = SECONDS; 
344 SETIMR_ STATUS = SSETIMR (EFN = .EVENT_FLAG, DAYTIM = TIMBUF [0], ASTADR = TAKE_AST, REQIDT = TIMER -REQID | 
07 299 IF ( NOT .SETIMR_STATUS) THEN LIBSSTOP (.SETIMR_STATUS); 
208 0300 | 
209 0301 END; 
$39 S44 '¢ | 
11 030 !' Stop early if a Line terminator is typed. 
$i¢ 8308 !- 
1 305 BEGIN 
14 0306 
15 0307 CAL 
16 0308 DEVCHR : BLOCK CDIBSK wath BYTE), 
1 0309 DEVCHR DESC : BLOCK (8° Ted, 
18 0310 GE TDEV™ TUS, 
i bait TRNNAM NNAM"DESC : BLOCK (8, BYTE): 
21 $318 TRNNAM_DESC CDSCSW_ BENG THD = ge be SYSSINPUT* ); 
$§ 0314 TRNNAM_DESC [OSCS$B_DTYP EY = “DSC$K Ape E. 3 
2 0315 NNAM_DESC [DSC$B_CLASS) = DSCSK-CLASS'S; 
$¢ 8 16 e TRNNAM_DESC CDSCSA_POINTER] = UPLITC S¥ssinput : 


415 
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3 § 0 18 Do a SGETDEV on this device name. 

; 8 0 0 DEVCHR_DESC CDSCS$W_LENGTH] = DIBSK LENGTH: 

; 9 1 DEVCHR_DESC Beteeces iced = DSCSK_BTYPE_7; 

; 0 0 ¢ DEVCHR_DESC [COSCS$B_CLASS] = DSCSK_CLASS_S; 

$ 1 0 DEVCHR_DESC CDSC$A_POINTER] = DEVCHR; 
H $ § 6; ¢ 4 GETDEV-STATUS = SGETDEV (DEVNAM = TRNNAM_DESC, PRILEN = DEVCHR_DESC CDSC$W_LENGTH], PRIBUF = DEVCHR_DESC 
3 234 03 § : 
H 5 03 4 IF (.DEVCHR CDIBSB_DEVCLASS] EQL DC$_TERM) 

; : 03 g a THEN | 
; 8 0330 ! SYSSINPUT is a terminal. Arrange to take an AST if a terminator is typed | 
: § 9 0331 ! on it. 
3; 240 03 ¢ !e | 
> 241 0333 4 BEGIN | 
; see the: 4 | 
; 24 0335 4 CAL 
> 246 0336 4 Q10_STATUS 

; oho 033? 4 ASSIGN_STATUS; 

3 ste oe7e ASSIGN_STATUS = SASSIGN (DEVNAM = TRNNAM_DESC, CHAN = ASSIGNED_CHAN); | 
$ Sep te 2 IF ( NOT .ASSIGN_STATUS) THEN LIBSSTOP (.ASSIGN_STATUS); | 
3; 251 P bac$ 4 QIO_STATUS = $Q10 (EFN = .EVENT FLAG, CHAN = .ASSIGNED_CHAN, FUNC = (IO$_SETMODE OR JOSM_OUTBAND OR | 
: $2 beet ; Pi = TAKE_AST, P2 = UPLIT (0, %x'2000'));  !Terminator is a CR. 
3; 254 0346 4 IF ( NOT .QIO_STATUS) THEN LIBSSTOP (.QIO_STATUS); 

3 299 0347 4 

; 256 0348 3 END; 

3 $22 0349 3 
; 258 0350 END; 

3 @ 0351 ‘+ ; ; 
; 260 0352 ! Now wait for the SSETIMR to fire, or (if SYSSINPUT is a terminal) 
; 261 0353 2! for a terminator to be typed. 
; 262 0354 te 
; 263 0355 BEGIN | 
3; 264 0356 

> 265 0357 LOCAL 

; 266 0358 HIBER_STATUS; 

3; 267 0359 

; soe 9360 3 HIBER_STATUS = SHIBER; 

: 370 8306 IF ( NOT .HIBER_STATUS) THEN LIBSSTOP (.HIBER_STATUS); 

; $4 0364 END; 

; $7 0365 '¢ 

3 274 0366 ! At this point either AST for SSETIMR or $Q10 has gone off. We don't care 

3 3r6 tat : which, we just cancel both of them, and also deassign the channel. 

3 277 9368 BEGIN 

3 $f8 0370 

3: e279 0371 LOCAL 

; $B B36 DASSGN_STATUS, 

3 81 b3e CANTIM_STATUS, 

3; 282 0374 Q10_STATUS; 
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00 00 00 


CANTIM_STATUS = SCANTIM (REQIDT = TIMER_REQID); 

IF ( NOT .CANTIM_STATUS) THEN LIBSSTOP (.CANTIM_STATUS); 
IF_.ASSIGNED_CHAN NEQ 0 

THEN 


BEGIN 
sate pele oe $Q10 (EFN = .EVENT_FLAG, CHAN = .ASSIGNED_CHAN, FUNC = (IO$_SETMODE OR IO$M_OUTBAND OR 


IF ( NOT .QIO_STATUS) THEN LIBSSTOP (.QIO_STATUS); 
DASSGN_STATUS = SDASSGN (CHAN = .ASSIGNED_CHAN); 
IF ( NOT .DASSGN_STATUS) THEN LIBSSTOP (.DASSGN_STATUS); 


END; 
= END; 
i Make sure there are not ~?' SWAKE rong hy around. They could have appeared 
" S resent of one of the ASTs timer or G10 going off just before we turned 
4 off. 
le 
BEGIN 


CAL 
WAKE_STATUS 
HIBER_STATUS; 


WAKE_STATUS = $WAKE (); 
IF ( NOT .WAKE_STATUS) THEN LIBSSTOP (.WAKE_STATUS); 
HIBER_STATUS = S$HIBER; 
IF ( NOT .HIBER_STATUS) THEN LIBSSTOP (.HIBER_STATUS); 
END; 

+ 

Free the event flag now 


EF _STATUS = LIBSFREE_EF (E 
IF (NOT .EF_STATUS) THEN L 


RETURN; 
END; 


VENT FLAG); 
IBSSTOP (.EF_STATUS); 


! end of BASSSLEEP 
TITLE BASSSLFEP 
-IDENT \3-003\ 


-PSECT _BASSCODE,NOWRT, SHR, 


54 55 50 4E 49 24 53 59 53 00000 P.AAA: .ASCII ASVSS1NPUT\ <0><0><0> 
00002000 00000000 O000C P.AAB: .LONG 0, 8192 
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36083 aka 1 94:48:28 BASRTL. SRC IBASSLEEP.B3 31 9° 03) 
«EXTRN LIBSMATCH_COND b 1BSGET_EF 
-EXTRN LIBSFREE_EF, tie STOP 
“EXTRN SYSSWAKE, SYSSHIBER 
SEXTRN SYSSSETIMR, SYS$GETDEV 
-EXTRN SYSSASSIGN, SYS$QI0 
SEXTRN SYSSCANTIM, SYSSDASSGN 
007¢ 00000 .ENTRY BASSSLEEP, Save R2,R3,R4,R5,R6 3 0204 
56 900000006 00 9E 00002 MOVAB SYS$QI0, R6 : 
se 9noes Ob ge dame VAR Se 7 
33 000090006 80 3 ith MOVAB LIBSSTOP, R3 : 
SE FF70 CE YE OOOIE MOVAB <-144(SP). SP ; 
F4 AD 7C 0002? CLRQ = EVENT FLAG + 0237 
FC AD D4 3858 CLRL ASSIGNED_CHAN 3 
6D O14E CF DE 00029 MOVAL 14$, (FPY : 
FL «OAD OOF O0¢E PUSHAB EVENT_FLAG : 0257 
000000006 00 01 FB 00031 CALLS #1, LISSGET_EF 3 
52 50 DO 00038 MOVL RO, EF_STATOS F 
05 3g E8 00038 BLBS EF_STATUS, 1$ : 0258 
52 DD O003E PUSHL EF -STATUS ; 
63 01 FB 00040 CALLS #17 LIBSSTOP : 
7E 7C 00043 1$ CLRO. «= (§P) : 6269 
65 02 FB 00045 CALLS #2, SYSSWAKE ; 
05 50 E8 00048 BLBS § WAKE_STATUS, 2$ + 0271 
50 DD 00048 PUSHL WAKE STATUS ; 
63 01 FB 00040 CALLS #1, CIBS$STOP : 
64 00 FB 00050 2$: CALLS #0, SYSSHIBER : 0273 
05 50 E8 00053 BLBS §$ HIBER_STATUS, 3$ : 0275 
50 DD 00056 PUSHL HIBERSTAT : 
63 01 FB 00058 CALLS #1 TOSS TOP 3 
7c «OAL 00 04 AC FF676980 8F 7A 00058 38: EMUL  #-10000000, SECONDS, #0, TIMBUF : 0290 
FB AD 04 AC 9E 00066 MOVAB SECONDS, TIMER_REQID : 0296 
F8 AD 9F 00068 PUSHAB TIMER REQID : 0297 
0000v CF 9F 0006E PUSHAB TAKE AST F 
EC AD OF Boor PUSHAB OF : 
F4 AD DD 0007 PUSHL NT _FL ; 
000000006 00 04 FB 00078 CALLS #4, SYSSSETIMR ; 
05 50 € 9007F BLBS § SETIMR_STATUS, 4$ : 0299 
50 DD 00082 PUSHL SETIMR™S ; 
63 01 FB 00084 CALLS #1 LIGSSTOP 3 
6E 01000009 8F DO 00087 4$: MOVL  #16777225, TRNNAM_DESC > 0313 
04 AE FFSA CF 3 9008¢ MOVAB P.AAA, TRNNAM DESC+4 ; 0316 
8 AE 01000074 F p 0094 MOVL  #16777332, DEVCHR DESC : 0320 
OC AE 10 AE 9€ on09¢ MOVAB DEVCHR, DEVCHR_DESC+4 0323 
7E 7C OOOAI CLRQ = = (SP) + 0324 
10 AE 9F OO0A3 PUSHAB DEVCHR_DESC : 
14 AE 9F OO0A6 PUSHAB DEVCHRDESC ; 
10 AE 9F O00A9 PUSHAB TRNN. C : 
000000096 00 05 FB Oot CALLS #5, SYSS$GETDEV F 
42. —soBF 14 AE 91 908 CMPB -dDEVCHR+4, #66 ; 0327 
D 12 00088 BNEQ 6$ ; 
—E 7¢€ OOOBA CLRQ = =( SP) : 0339 
FC AD 9F O00BC PUSHAB ASSIGNED_CHAN : 
OC AE 9F OO0BF PUSHAB TRN : 
000000006 00 04 FB 000C2 CALLS #4, SYSSASSIGN ; 
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ihese -1984 01:14:5 AX-11 Bliss-32 v4.0-74 
12-08 - 1 ogc 94:48:28 YBASRTL SRe eaes\ cis .0$5.1 
ROUTINE TAKE_AST ( ' Take a Q10, or SETIMR AST. 
AST PARAM ' AST parameter. 


) : NOVALUE = 


+ 
FUNCTIONAL DESCRIPTION: 


Take an AST, either from SSETIMR when the sleep time is up, or from 
the $Q10 when it completes. In both cases we simply do a $wAKE. 


FORMAL PARAMETERS: 
AST_PARAM 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


Pointer to parameters for this AST. 


END; ! of TAKE_AST 


0000 00000 TAKE_AST: f 
WORD Save nothing 
iS 7C 00002 


Q =(SP 
00000000G 00 02 FB 00004 #2, SYSSWAKE 
04 00008 


CLR 

CALLS 

RET 
Routine Base: _BASSCODE + 0180 


0424 
0457 


0459 


unwinding. 
SIDE EFFECTS: 


Oo 
NN 


Arranges that the ASTs will not fire after this routine 


so 
co 


has completed its execution. 


408 
409 


F 16 
eo08 16-Sep-19 91:16:36 AX-11 Bliss-32 v4.0 o-738 
14-Sep-1984 11:56:4 BASRTL.SRCJBASSLEEP.B32;1 
70 460 ROUTINE SLEEP_HANDLER ( ' Handler for BASSSLEEP 
71 461 $1G, i signal args 
7 re {| MECH, ! mechanism arjs 
7 6 ENBL ‘variables passed from BASSSLEEP 
74 464 ds 
75 465 
7 8298 '4 
a Beet ; FUNCTIONAL DESCRIPTION: 
79 0469 ! Handle an UNWIND while in BASSSLEEP. This is needed so that the 
80 0470 ; ASTs will not fire after their storage has been removed from the 
81 ot} stack. 
Bg 047 ' FORMAL PARAMETERS: 
84 0474 ! ' 
85 0475 : $1G.rl.a Address of the signal vector. This contains 
86 0476 ! the condition. 
87 0477 ! MECH. rl.a Address of the mechanism vector. This conta‘ns 
88 0478 ! the status of the frame eer si prec. . 
389 0479 ‘ ENBL.rl.a Address of the enable vecto his contain 
$ geet } some the local variables ASSIGNED. CHAN, ae te TIMER_REQID. 
39 048 !' IMPLICIT INPUTS: 
39 048 ! 
394 0484 ! NONE 
395 0485 ! 
396 0486 ' IMPLICIT OUTPUTS: 
397 0487 ! 
398 0488 ! NONE 
99 0489 ! 
00 0490 ' COMPLETION CODES: 
401 0491 ‘ 
402 049 Always SSS$_RESIGNAL, but this is ingored when we are 
' 
i 
i 
i 
i 
i 


DIN & & & & 
SS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
0494 1 
1 
1 
1 
1 
1 
1 
: 


0 
0 
0 
410 0 -- 
411 0501 
ht | 0 8 BEGIN 
41 050 
414 0504 
415 0505 SIG : REF VECTOR ! signal vector 
416 9206 MECH : REF VECTOR, ' mechanism vector 
417 050 ENBL : REF VECTOR; i enable vector 
$18 B2n8 
41 509 BIND 
420 3219 ASSIGNED_CHAN = .ENB (1. 
421 511 TIMER_REGID = .ENBL § ° 
4 § “16 EVENT_FLAG = .ENBL (5); 
2 4 tz 
425 0515 i ‘If this is the UNWIND condition, cancel the SETIMR and QI0. 
426 0516 


a ee —- 


| 16 
| BASSSLEEP 1$-5e 1984 01:14:5 AX-11 Bliss-32 V4.0-74 Pa 1 
88 12-80 8-198e 1:48:28 BASRTL.SRCIBASSLEEP.B3 31 . 8 (5 
; 427 1 
428 1 IF (LIBSMATCH_COND (SIG C1], REF (SSS$_UNWIND))) 
429 1 THEN 
: ° BEGIN 
4 ¢ i Turn off the Q10 and SETIMR. We need to do this while no ASTs can go off 
: because we are modifying ASSIGNED_CHAN, and TIMER_REQID. 
435 ‘ SSETAST (ENBFLG = 0); 
436 BEGIN 
437 
438 OCAL 
439 DASSGN_STATUS, 
440 CANTIM_ STATUS, 
441 U 
44g G10_STATUS; 
tee P ae wy Ot $Q10 (EFN = .EVENT_FLAG, CHAN = .ASSIGNED_CHAN, FUNC = (IO$_SETMODE OR 1O0$M_OUTBAND OR 
446 te 
ret} IF ( NOT .QIO_STATUS) THEN LIBSSTOP (.QIO_STATUS); 
rch j EF _STATUS = LIBSFREE_EF (EVENT_FLAG); 
451 4 IF .ASSIGNED_CHAN NEQ 0 
4 4 THEN 


MEU $9 DOONAN WIN 9 OD NA NE WIN @§ O ODNOA NEW SO CONOUSWNOVOO~ 


Se eee arash ah ah sb dh Ab ab Ah Ah Ab AD Ah ah ah dh ah a al ah ala alae ww  ) 


& 
0 4 
8 4 
4 
8 6 
& 
4 
4 
0 & 
0 4 
0 & 
0 4 
0 4% 
0 4 
5 0 4 
5 0 & 
26 0 4 
45 05435 5 BEGIN 
rer: : DASSGN_STATUS = S$DASSGN (CHAN = .ASSIGNED_CHAN); 
$28 : : IF ( NOT .DASSGN_STATUS) THEN LIBSSTOP (.DASSGN_STATUS); 
458 0548 5 ASSIGNED_CHAN = 0; 
459 0549 4 END; 
460 0550 4 
461 0551 4 IF .TIMER_REQID NEQ 0 
46 0552 4 THEN 
46 0553 5 BEGIN 
rr} 4 2 5 CANTIM_STATUS = SCANTIM (REQIDT = TIMER_REQID); 
r+¢] 8 3 IF ( NOT .CANTIM_STATUS) THEN LIBSSTOP (.CANTIM_STATUS); 
468 0558 5 TIMER_REQID = 0; 
469 0559 4 END; 
470 8 60 4 
471 6 END; 
7 9 6 ei SSETAST (ENBFLG = 1); 
474 056 : Make sure there are not ~ SWAKE hanging around. They could have appeared 
475 056 ! as a result of one of the ASTs timer or Q10 going off just before we turned 
47 $6 ! it off. 
47 6 !e 
478 68 4 BEGIN 
479 +4 & 
480 0 4 CAL 
481 71 4 WAKE STATUS 
48 re 4 HIBER_STATUS; 
48 0573 4 


— 


| H 16 
ASSSLEEP 16-Sep-1984 01:14:5 AX-11 Bliss-32 V4.0-74 Page 13 
baits 19-88-1382 91:96:28 EBASRTL SRC IBASSLEEP.B3 31 , g 5) 
: 6 7% & WAKE_STATUS = SWAKE (); 
: tks 75 4 ¥ 
; rt] a $ IF ( NOT .WAKE_STATUS) THEN LIBSSTOP (.WAKE_STATUS); 
; HIBER_STATUS = SHIBER; 
488 22 4 IBER_ST $ 
: 490 580 4 IF ( NOT .HIBER_STATUS) THEN LIBSSTOP (.HIBER_STATUS); 
> 491 036) 4 - ” 
: 49 386 END: 
: tox itt - 
: 495 0585 RETURN (SS$_RESIGNAL); 
; 496 586 END; ' of HANDLER 
.EXTRN SYSS$SETAST 
001C 00000 SLEEP_HANDLER: 
«WORD Save R2,R3,R4 : 0460 
54 000000006 00 9€ 00002 MOVAB SYSS$SETAST, R4 : 
53 000000006 00 9€ 00009 MOVAB LIBSSTOP, R3 ; 
52 Oc AC 00 00010 MOVL ENBL R2 + 0510 
7E 0920 8F 3C 00014 MOVZWL #2336, -(SP) > 0518 
SE DD 90019 PUSHL SP : 
7E 04 ac 04 C1 0001B ADDL3 #4, SIG, -(SP) : 
000000006 00 02 FB 00020 CALLS #2. LIBSMATCH_COND : 
03 50 Es 00027 BLBS RO. 1$ : 
008E 31 OO02A BRW BS : 
7E D4 0002D 1$: CLRL = = (SP) > 0525 
64 01 FB 000¢F CALLS #1, SYSSSETAST : 
7E 7C 00032 CLRO 0_ = (§P) : 0535 
7E 7C 00034 CLRQ = =( SP) F 
7E 7C 00036 CLRQ = = (SP) ; 
7E 7C 00038 CLRQ = = (SP) : 
7E ps 0003A CLRL = = (SP) ; 
7E 0¢33 BF 3C 0003C MOVZ2WL #3107, -(SP) : 
4 Be DD 00041 PUSHL  @4(R25 : 
0c DD 00044 PUSHL aig (Re) : 
000000006 00 ¢ FB 90047 CALLS #12, SYS$QI0 : 
05 0 € O04E LBS  QI0.STATUS, 2$ : 0537 
50 DD 0005 PUSHL QIO7STATUS ; 
63 01 FB 00053 CALLS #1 L1BSSTOP : 
OC A2 dD 06 2$ PUSHL VetR ) : 0539 
000000006 00 01 F CALLS @ LIBSFREE_EF : 
04 B82 05 0006 TSTL  a4(R2) > 0541 
15 13 0006 BEQL 46 4$ : 
04 DD 0006 PUSHL @4(R2) > 0544 
000000006 99 FB 068 CALLS #1, SYSSDASSGN : 
0 O€ O6F BLBS § DASSGN_STATUS, 3$ > 0546 
0 DD : PUSHL DASSGN STATUS : 
63 1 FB 0007 CALLS #1, LIBSSTOP ; 
04 B2 D4 00077 3$: CLRL a4 (RO) > 0548 
8 8B 03 7A A$: TSTL ag (R ) > 0551 
1 07D BEQL «66 : 
re D4 0007F CLRL 3s = (SP) > 0554 
08 A2 DD 00081 PUSHL 8(R2) : 


BREN a sae be Ae ca GIN NE ESSE REAL Ns 


—_——<—<—_— 


| 16 
_BASSSLEEP ibese =1984 01:14:5 AX-11 Bliss-32 V4.0-74 Page 14 
beth ra eeah SR P:2S:28 | eaNsAT Obese kee Veee o85.. ra 
000000006 99 FB 084 CALLS #2, SYSSCANTIM : 
é 088 BLB CANTIM_STATUS, 5$ : 0556 
DD 0008 PUSHL CANTIM~STATUS : 
63 01 FB 000 CALLS #1, {8ss1 : 
08 B82 D4 000935 5$: a8(R2) ; 0558 
1 OD 0096 6S: PUSHL #1 : 0562 
64 1 FB 0009 CALLS #1, SYSSSETAST : 
7¢ 00098 CLRO. 0. = (§P) + 0574 
000000006 99 re 909 CALLS #2, SYSSWAKE : 
5 a AG BS § WAKE_STATUS, 7$ : 0576 
DD 000A7 PUSHL WAKE STATU : 
65 1 FB 8 a9 CALLS #1, CIB$STOP 3 
000000006 g 0 FB AC 7$ CALLS SYSS$HIBE : 0578 
0 0 €8 0008 BLBS  HIBER_STATUS, 8$ : ¢580 
0 oD 0086 PUSHL HIER STAT : 
3 1 FB 000 CALLS 1 LTesst 3 
0 0918 &F 3¢ 0088 8$ MOVZWL #2528, RO > 0585 
4 000¢ RET : 0586 


3; Routine Size: 193 bytes, Routine Base: _BASSCODE + 01BC 


; 497 0587 1 END ! end of module BASSSLEEP 
498 0588 1 
499 0589 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _BASSCODE 637 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Eee Pe Mees hh ee dt | aa Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 25 0 581 00:01.1 
: COMMAND QUALIFIERS 


; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASSLEEP/OBJ=0BJ$:BASSLEEP MSRC$:BASSLEEP/UPDATE=(ENHS :BASSLEEP) 


QARSSLEEP 


: a 617 co ; ’ 20 data bytes 
Elapsed. Time: 8 :29.9 

: Lines/CPU M 784 
: bese teu-nlet 219 6 

; ed: 143 pages 


Memor Y U 
; Compilation Complete 
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